home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / fb386 / tool / math / renritu.bas < prev    next >
BASIC Source File  |  1994-02-16  |  509b  |  16 lines
  1. 10 CLS
  2. 20 PRINT "連立方程式の計算  aX+bY=c                              解答時にＰＦ１でメニユー"
  3. 30 PRINT "                  dX+eY=f"
  4. 40 INPUT "a=",XA:INPUT "b=",YA:INPUT "c=",ZA
  5. 50 INPUT "d=",X2:INPUT "e=",Y2:INPUT "f=",Z2
  6. 60 PRINT XA"X+"YA"Y="ZA
  7. 70 PRINT X2"X+"Y2"Y="Z2
  8. 80 X1=-XA : X1=X1/YA : Z1=ZA/YA
  9. 90 X2=-X2 : X2=X2/Y2 : Z2=Z2/Y2
  10. 100 X3=X1-X2 : Z3=Z2-Z1
  11. 110 X=Z3/X3
  12. 120 Y=(-XA*X+ZA)/YA
  13. 130 PRINT "X="X",Y="Y
  14. 140 A$=INKEY$:IF A$="" THEN 140
  15. 150 IF A$="1" THEN RUN "MENU.BAS" ELSE GOTO 10
  16.